BBS in a Box 2/BBS in a box - Trilogy II.iso/Files/Hyper/Q-R/Rev. Xref-Text/background_2746.txt

Text File | 1987-09-28 | 5.4 KB | 258 lines

-- background: 2746 from stack: in. Xref-Text
-- bmap block id: 2075
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on opencard
  set lockText of field body to true
  hide bkgnd button "Lock Text"
  show bkgnd button "Edit Text"
end opencard

on closecard
  set lockText of field body to true
  hide bkgnd button "Lock Text"
  show bkgnd button "Edit Text"
end closecard


-- part 1 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=9 top=64 right=333 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: body
----- HyperTalk script -----
on mouseUp
  put the optionkey into keystate
  if the selection is empty then
    set lockText of the target to false -- unlock to enable text editing
    repeat two times
      click at the clickLoc -- double click where the user clicked
    end repeat
    put the selection into holder
    if keystate is down then
      type holder & "*"
      push card
      doMenu New Card
      put holder into field keywords
      pop card
    else
      push card
      visual effect zoom open
      find holder in field keywords -- This line is the link
      if the result is not empty then
        answer "No match for keyword " "e& holder"e
        pop card
      end if
    end if
  end if
  click at 0,0 --disable selection
  set lockText of the target to true
end mouseUp



-- part 2 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=15 top=33 right=69 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 14
-- part name: keywords


-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=413 top=110 right=145 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Text
----- HyperTalk script -----
on mouseUp
  set lockText of field body to false
  show bkgnd button "Lock Text"
  hide bkgnd button "Edit Text"
end mouseUp



-- part 4 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=414 top=110 right=146 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lock Text
----- HyperTalk script -----
on mouseUp
  set lockText of field body to true
  hide bkgnd button "Lock Text"
  show bkgnd button "Edit Text"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=352 top=34 right=65 bottom=384
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  hide field body
  show bkgnd button OK
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=187 top=34 right=69 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  pop card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=413 top=153 right=188 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Stack
----- HyperTalk script -----
on mouseUp
  doMenu New Stack...
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=312 top=34 right=62 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close to black
  visual effect iris open to white
  visual effect dissolve
  go to card id 5341 of stack "Home"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=281 top=34 right=63 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 8419 / 8419
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go next
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=252 top=34 right=62 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 17779 / 17779
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go prev
end mouseUp



-- part 12 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=353 top=77 right=106 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  hide bkgnd button OK
  show field body
end mouseUp